set color to bg+/b
@  10,1 clea to 23,78
OKA=.f.
DO WHILE .not. OKA .AND. LASTKEY()<>27

     CWINIS_NO=WINIS_NO
     CWINIS_PRGR=WINIS_PRGR
     CAEA_ENDATE=AEA_ENDATE


      IF LASTKEY()=27
         RETURN
      ENDIF

         @ 11,3  SAY 'Patient Name: '+ALLTRIM(PAT_NAME)+'  '+ALLTRIM(PAT_F_NAME)
         @ 12,3  SAY 'D.O.B.      : ' 
         @ 12,17 SAY DTOC(PAT_DOB) PICT '99/99/9999'    

         @ 13,3 SAY 'Nationality : '+ALLTRIM(PAT_NATIO)  

         DO BOXT     WITH 15,1,"WINIS NO   : "+CWINIS_NO,'BG+','B',.F.,.F.
         DO BOXT     WITH 17,1,"WINIS PROG : "+CWINIS_PRGR,'BG+','B',.F.,.F.
**         DO BOXT     WITH 19,1,"WINIS PRG EXPIRE DATE   : "+CAEA_ENDATE,'BG+','B',.F.,.F.
         @ 20,3 SAY 'Expiry Date: '
        @ 20,16 SAY DTOC(CAEA_ENDATE) PICT '99/99/9999'

         DO BOXEN    WITH 15,1,"WINIS NO   :",'CWINIS_NO','BG+','B','W+','N',6
         DO BOXEN    WITH 17,1,"WINIS PROG :",'CWINIS_PRGR','BG+','B','W+','N',20
         @ 20,3 say 'Expiry Date:' get CAEA_ENDATE  pict '99/99/9999'                                                                                                                                                                         
         READ 


      PL7=1
      DO BOX2 WITH 21,3,"DO YOU WANT TO ",'CONFIRM','CANCEL','gr+','r','gR+','B',PL7,.f.,.T.
      do case
      case PL7=1
         OKa=.t.
      case pl7=2 .OR. LASTKEY()=27
         OKa=.f.
      endcase
ENDDO
IF OKA
   IF REC_LOCK(0)
**12/05/2000 - start - Dickson
      REPL WINIS_NO WITH CWINIS_NO
      REPL WINIS_PRGR WITH CWINIS_PRGR
      REPL AEA_ENDATE WITH CAEA_ENDATE

   ENDIF
   UNLOCK
ENDIF
RETURN

